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iTHIS SUR-PROGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S.MAC<V414) 

YLIST 

LIST 
(PARAMETER FILE FOR DISSER.MAC 
iUSED ONLY TO ASSEMBLE O.ISSER TO MAKE TyPE 30 SERVICE INSTEAD OF TYPE 34:* 

000001 T30 = l I FLAG THAT TYPE 30 IS WANTED 
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12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
?3 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



0000(»0 



IFNDEF T30,<T30=0>SASSUME TyPE 3? DISPLAY IF T30 IS UNDEFINED 

IFN T30,< 

TITLE DIST30 - TYPE 30 DISPLAY SERVICE ROUTIMES 

ENTRY DIST30 

niSTSidt 

> 

IFE T30.< 

TITLE OIS340 - TYPE 345) DISPLAY SERVICE ROUTINES 

ENTRY DIS340 

OIS340: 

> 

SUBTTL 

XP 



I 



I 



R. GRUEN/RCC TS 03 JUN 69 V004 

VDISSR.004' 

iPUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP 
THESE ROUTINES HANDLE INTERRUPTS FROM THE DISPLAY DATA 

CHANNEL. THEY SEARCH THE COMMAND POINTER LIST SUPPLIED 

PY THE USER AND OUTPUT SECTIONS OF DATA AS SPECIFIED THEREIN. 

ALL OUTPUT IS DONE USING THE BLKO COMMAND, 

THE FORMAT OF THE COMMAND POINTER LIST IS AS FOLLOWS: 
RH=0 END OF COMMAND POINTER LIST 

RH=AOR LH=0 
RH=L-1 LH=-N 



ADR IS ADDRESS OF THE NEXT SECTION OF THE 
COMMAND POINTER LIST 

OUTPUT TO THE DISPLAY THE N WORDS OF COMMANDS 

BEGINNING AT LOCATION L. 



NOTE THAT THE CHECK FOR END OF LIST IS MADE FIRST, 

ALL ADDRESSES ARE CHECKED FOR VALIDITY (I.E., THEY MUST 
BE WITHIN USER AREA) BEFORE ANY MEM REF IS MADE, 



MF THE T3C SWITCH = 1 THIS IS THE ROUTINE FOR A DEC 
ITYPE 30 DISPLAY WITH A TYPE 348 INTERFACE. 
(OTHERWISE IT IS THE ROUTINE FOR A DEC TYPE 340, 
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50 
51 
52 
53 
54 
55 
56 
57 
c 8 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



00000 

000001 

000072 
^00003 
000004 
000005 
700006 
000007 

000010 



445163 
000074 
000070 
000000 
003003 
000000 

000000 

000007 
000000 



000000 

000000 

000000 

000024 ' 

020000 

000000 

000000 
000000 
000000 



INTERNAL FTC^ECK, FTMI3NP 

IFM Fl CkF.CK + r'TMO» , l J .< 

EXTERNAL DISn;De,niSl0S,PF.NLQn,DI5HNT,0ISHK0.PISHI , I SONE , I S AV , OFFD'l S 

EXTERNAL OlSAVl.niSRFL.OISCO^'.OISNXT 

INTERNAL UISNX1 

> 

IFE FTCHFCK + F:TMO\ip,< 

lUIS DEVICE HATA BLOCK 

INTERN OlSDOB 
niSDDHl SIXBIT /DIS/ 

xwn fD6B»HLJNRST,"i 

OlSIOS! 7 



EXP 

xwn 
p 

XhO 





niSDSP 

DVOI5*TVOUT+nviN*DVLNGi200 00 



PROG.0 



69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
"2 
83 
R4 
85 



000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 



000000 
000000 
000000 
000000 

000000 
000070 
000000 
000001 



000021 000008 



000000 
000000 

000000 

000000 

000000 
000000 
000000 
000000 



000000 



pEmloC: n 

DISPNT! n 

DISBKU: 

01 SHI i 7 

DISONEl "i 
D I S A v : 
OISAVl: 
D1SREL: XWO 
xp 

IFF. T30,< 

niscnN: fxr 

I FN T30,< 

niscoNj ":> 

XP PENODRffl 



T A C , 
nFFD]S,0f 



ONDIS> 



ITO SATISFY A REQUEST IN COMMON. 
I THFRF IS NOT REALLY A PEN 00". 



D I ST7E 
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?6 

R7 

B8 

89 

90 

91 

92 

93 

94 

9!) 

96 

97 

98 

99 

100 

111 

1?2 

173 

174 

1?5 

1?6 

1?7 

178 

1(?9 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 



IF N T3C, < 
00?134 niS=l34 

> 
002100 OISTArtclflii 
000200 niswAT = 25-k; 
000400 OlSCKR = 4i?0, 
001000 DISUUIsl/KP 

IFE T30,< 
OISBSY=77 
PENON=7400 
> 

IFN T30,< 
023030 r)ISBSY = 20000 
010000 PENON=10000 
> 



:TYPE 30 DISPLAY DEVICE NUMBER 

(CLOCK FINISHED BEFORE PICTURE 
(PICTURE FINISHED BEFORE CLOCK 
(CLOCK REQUE C T IN CLOCK QUEUE 



EXTERN JOBPF1 

EXTERN DISSAV.niSBLK.DISJSR.PENSAV 

EXTERN DISCH»!.PENCHN 

EXTERN nlSCHL.PFNCHL 

EXTERN DISSAV.DISRET 

EXTERN DISPON.DISPOF 

EXTERN AORERR.SETIOn 

EXTERN PION.PIOFF. CLOCK 

EXTERN CP0Pjl.UERR0R,USRREL.ST0TACiJ0B.JBTSTS,J8TADR,PJ0RN 



IFE T30,< 



EXTERN ONDIS.NONniS) 



INTERN PEMNT.OISINT.DISFIN 
ENTRY DISDSP 

nEFINE AORCHK(A) 
< 

CAILE A.JOPPFI 
CAMLE A.OI^HI 
JR5T EXIT? 



0IST32 
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125 


000022 


254000 


000043' 


JRST 


□ IS IN 1 


1 I^ITILI^ATION 


126 


000023 


263140 


000300 


POPJ 


PDP, 


IP«INT ERROR AND STOP JOR 


127 


000024 


2540:10 


000051' oisdsr: jrst 


DISSTP 


(RELEASE 


126 


000025 


254000 


000051' 


JRST 


OISSTP 


tCLOSE 


129 


000026 


265240 


000000 


JSP 


DAT.UERROR 


(OUTPUT 


130 


000027 


265240 


000026' 


JSP 


HAT,uERROR 


1 INPUT 


131 


000030 


254000 


000000 


JRST 


CP0PJ1 


(ENTER 


132 


000031 


254fcH0 


000030' 


JRST 


CPOPJl 


(LOOKUP 


133 


000032 


2540-0 


000255' 


JRST 


DISOIJT 


IDUMP OUTPUT (THAT'S US) 


134 


000033 


254e?0 


000252' 


JRST 


DISIM 


IOUMP INPUT (AS IN PEN) 


135 


000034 


263140 


000000 


POPJ 


PDP, 


ISETO 


136 


000035 


263140 


000000 


POPJ 


PDP, 


ISETI 


137 


000036 


263140 


003000 


POPJ 


PDP, 


(GETF 


138 


000037 


2540<"0 


000031' 


JRST 


rpnpji 


(RENAME 


139 


000040 


263140 


000 000 


POPJ 


PDP, 


(CLOSE INPUT 


110 


000041 


263140 


000000 


POPJ 


PDP, 


(DIRECTORY CLEAR 


141 


000042 


263140 


003000 


POPJ 


PDP, 


IMTAPE 
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142 
143 
144 
145 
146 
147 
148 
1.4 9 
150 
1.51 
152 
1.53 
1.54 
1.55 
156 
1.57 
158 
1.59 
1.60 
1.61 
162 
163 
164 
165 
166 
1.6 7 
16 8 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 



300043 



0017:043 

["00044 
{100045 
000046 
000047 

000050 



000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 

000064 
000065 



D I S I N I IS CALLED FOR RELEAST. CLOSE, AND SUNDAY ILLEGAL CONDITIONS 
l-'HICH WAmT TD TURN THE DISPLAY OFF . IT FIRST CONVINCES 
THE INTERRUPT LEVEL "OUTINGS TO GO BACK TO SLEEP AND THEM 
TELLS THF MONITOR TrUT THE DEVICE IS INACTIVE, LASTLY, 
IT TURNS OFF TU£ INTERRUPT ASSIGNMFNTS OF THE DISPLAY 
AND THF PI CHANNEL A e SOCIATED WITH THE UIS BLKO, IT RETURNS 
UITH A POPJ , SOMETp'ES TO ITS CALLING ROUTINE AND SOMETIMES 
TO Tue CHANNEL'S DISMISS ROUTINE. THF ADDRESS OF WHICH 
WAS CLEVERLY PLACED ON THE PUSHDOWN LIST WHEN AC'S 
!-'ERE SAVFD, THUS IT CAN BE CALLFD WITH EITHER A 
PUSHJ PDP.DISINI 0" A JRST I S I N [ , 



201040 
243040 
271040 
660040 
202040 
254070 



000000 

000003 

000000 

004000 

000021' 

003054' 



n 1 S I N I : 

IFE T33,< 

COMO 

IFN T30,< 

MOVEI 

ASH 

ADDI 

TRO 

MOVE M 

JRST 



DIS.100 

TACPENCHN 

TAC3 

TAC.HISCHN 

TAC.4030 
TAC,0ISC0N> 
D I S I M 1 



IPARAMETER MOOE> 

!SET UP CONQ WORD WITH PROPER 
I CHANNEL ASSIGNMENTS 

ISET DISPLAY READY BIT IN CONO WORD 



000051 200230 003000 DISSTP! HQVE ITEM, JOB 

MOVSI TACNSHF + NSWP 

000052 205040 011000 IS A SWAPPING SYSTEM 

000053 412044 003030 ANHICAM T AC , JU TSTS ( I TEM ) 



ICLEAR NSHF SO JOB CAN BE SHUFFLED 

ICLEAR NSWP SO JOB CAN BE SWAPPE n (IN CASE THIS 



476030 
205040 
541040 
412040 
7136"0 
513030 
7006^0 
263140 

254030 
254000 



003011' DISINll SETQM PENLOC 



DISOFF! 



001230 

013000 

003032 ' 

000030 

003066' 

303030 

0000'*0 



300137' DISINT: 
000064' 



"OVSI 

HhPI 

ANDCAM 

CONO 

MLL2S 

CONC 

D OPj 



TACDISWAT + DISUUI 



I IGNORF FURTHER TRAPS 



TAC, I04CT 

TAcnisms 

DIS.OFFDIS 
OENINT 
PI.DISPOF 
PDPi 



I INDICATE DEVICE INACTIVE 

I INTO DEVICE DATA BLOCK 

(REMOVE THE DISPLAY'S CHANNEL ASSIGNMENTS 

lOON'T EXPECT ANY ON LITF PEN 

ITURN OFF DISPLAY'S BLKO CHANNEL 



JRST DISFIN 
JRST DISINT 



DIST30 



■ TYPE 30 DISPLAY SERVICE ROUTINES 
R. GRUEN/RCC TS 03 JUN 69 V004 



MACRO. V36 19:04 4-JUN-69 PAGE 19 



lfll 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 



: P F N I iM T RECEIEVES CONTROL DM INTERRUPTS ON THE DISPLAY NON-DATA 

I '-HANSEL (SPECIAL CHANNEL). IT DECIDES IF THE INTFRPUPT 

i WAS VALID. AND IF SO. TRANSFFRS CONTROL TO AN APPROPRIATE ROUTINE 



IFF TJ0, < 

penimtj roNSO 
JRST 
CONS 7 
JRST; 
CONS? 

PENFLGl nATA'l 
CONO 
JEN 



OIS.0 iCHECK FOR CPNI FLAGS 

PENIMT ITO OTHER DEVICES ON SAME CHANNEL 

n]S,400 ISTOP FLAG 

STPFLG 

DlS.2000 IPEN FLAG? 

DIS.PENLOC ISTOPE CURRENT LITE PEN LOC 

niS.NONOIS ICLEAR FLAG 

ePENCHL (DISMISS INTERRUPT 



SSTPFLG SERVICES STOP FLAGS (DISPLAY PROGRAMMED) BY DOING 
! A CLOSE DN THE DISPLAY 



STPFLG: 



JSR 
JRST 



PENSAV 
DISDSP+DCL 



istop flag, save acs ANn setup return 
I DO A CLOSE AND dismiss interrupt 



200 
2P1 
202 
2™3 
204 
2H5 
206 
207 
208 
209 
210 
211 
212 
213 



IFN T30.< 

000066 713740 000000 PENIMT: CONSO OIS.0 

000067 254000 000066' JRST PEMNT 

000070 713440 000011' DATA I DIS.PEMLOC 

000071 202040 002011' "OVE" TAC.PENLOC 

000072 200040 000013' MOVEi TAC.DISPKD 

000073 274040 000020' SUP TAC.DISREL 

000074 553000 000001 HRR2.S TAC 

000075 250040 000011' EXCH TAC.PENLOC 

000076 254520 000000 JEN :»PENCHL 



ICHECK FOR CONI FLAGS 

ITO OTHER DEVICES ON SAME CHANNEL ' 

ICLEAR PEN INTERRUPT 

ISAVE AC TAC 

IGFT ABSOLUTE ADR OF NEXT DATA ELEMENT 

IMAKE ADDRESS RELATIVE 

ICLEAR OUT GARBAGE IN THE LEFT HALF 

ISAVE ADR IN PENLOC AND RESTORE TA;C 

I ISM IS THE INTERRUPT 
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21 4 
215 
216 

217 
216 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
23 6 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 



000077 H0(We 



00100 
000101 

000102 
000103 
000104 
000105 
000106 
000107 

000110 
000111 
000112 



000113 
000114 
000115 
000116 
000117 
000120 

000121 
000122 
000123 
000124 
000125 
000126 
000127 
000130 
000131 
000132 



000133 
000134 



354040 
552040 

303040 
313040 
2540O0 
200060 
202040 
566040 

322040 
606040 
2540?0 



627040 
254000 
301040 
311040 
254000 
274040 

303040 
313040 
2540^0 
550040 
272040 
3500"i0 
3500^0 
200040 
713620 
254120 



2070C0 
137040 



000000 

000012 ' 
000012' 

000000 

000014' 

000130' 

000020' 

000013' 

000017 ' 

000127' 
777777 

000133' 



777777 
000101 
000102 
000014 
000130 
000017 

000115 
003014 
000130 
000020 
000013 
000077 
0071077 
000016 
000021 
000077 



DISNXT IS CALLED WITH A J?R DISNXT, IT SETS UP THE NEXT 
POINTER FOR THE DISPLAY'S BLKO BY INTERPRETING A 
COMMAND LIST SUPPLIEP BY THE USER, THIS COMMAND LIST 
IS DESCRIBED AT THE BEGINNING OF THE PROGRAM, IF THE 
OATA TO PE TRANSMITTED TO THE DISPLAY WOULD VIOLATE THE 
MEMORY PROTECTION. THEN THE ROUTINE RETURNS TO THE 
CALLING LOCATION +1. OTHERWISE, IF THERE 
IS NO FURTHER DATA Tn RE OUTPUT (AS INDICATED BY THE 
USER'S COMMAND LIST) THE ROUTINE RETURNS TO THE CALLING 
LOCATION *2. OTHERWISE, THE NEXT POINTER FOR THE BLKO 
IS PLACED IN DISBKO AND THE ROUTINE RETURNS TO THE CALLING 
LOCATION *3, 



IFF FTCH 
niSNXTi 

> 

DISNXli 
ILUP! 



FCK+FTMONP,< 




IJSR AT INTERRUPT OR UUO LEVELS 



AOSA 

HRR2M 

ADRCHK 



MOVE 

MOVE M 

HLROM 

IFN T30,< 

JUMPE 

TRNN 

JRST 

IFF T30,< 

TRNN 

JRST 

TL2N 

JRST 

CAIL 

CAML 

JRST 

SUB 

ADRCHK 



WRR? 
ADOM 
.AOS 
AOS 
MOVE 
CONO 
JRST 



EXITi: 
EXIT2! 



IGET NEXT POINTER FROM LIST 
UPDATE POINTER POINTER 



TACDISPNT 

TAC.nlSPNT 

TACt 

CAILE TAC.JOBPFI 

CAMLE TAC.DISHI 

JRST EXIT? 

TAC.SDISREL IGET NEXT WORD IN POINTER LIST 

TAC, DISBKO IPLACE IN BLKO POINTER 

TAC.nlSAVl IGET NEGATIVE WORD COUNTtMAKE LH NEC. TOO) 

TAC, EXITI (END OF COMMAND LIST? 

TAC-1 I INTENSITY? 

INTCHK |YES> 



IEND OF COMMAND LIST? 
)YES> 

INO. POINTER TO NEW LIST? 

IYES. 

INO, ADDRESS IN BOUNDS? 



TAC-1 

EXITI 

TAC-1 

ILUP 

TAC.JOBPFI 

TAC.DISHI 

EXIT2 

TACDISAV1 

TACf 

CAILE TAC.JOBPFI 

CAMLE TACDISHI 

JRST EXIT? 

TACDISREL 

TAC, DISBKO 

DISNXT 

DISNXT 

TACDISAV 

DIS,»DISCON 

2.0DISNXT 



INO 
IYES, 



ADR, OF LAST WORD IN BLOCK, 



IFORM ABSOLUTE AODR 

|[N THE BLKO POINTER WORD 

(RETURN 2,4 



ISET UP DISPLAY STATUS WORD 



IFN T30,< 
000001 INTCHKl MOVSS 
000136* OPR 



TAC 

TAC, INTPNT 



IPLACE INTENSITY IN CONO WORD 
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267 000135 254000 000100* JRST DISNXl 

268 000136 060300 000021' INTPNT: POINT 3 , 1 SCON , 29> 



IGET NEXT POINTER 
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269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
330 

sei 

302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
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000137 
000140 
000141 
000142 
000143 



000144 
000145 
000146 
000147 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 



202040 
244000 
254000 
254 000 
254520 



2640*0 
2013C0 
205040 
205240 
135200 
260140 
205000 
437000 
667000 
254000 
612044 
254000 
603000 
260140 
2540(70 
603000 
260140 
412244 
200000 
620000 
623000 
260140 
202000 
254000 
202000 
260140 
254000 



iUISEIN RECEIVES CONTROL WHEK THF DISPLAY'S BLKO POINTER REACHES 

i 7ER0. IT SAVES THE TWO AC'S WHICH OISNXT USES AND 

i nOES A JSR TO OISNXT, ON A NORMAL RETURN IT RESTORES THE 

I 4CS AND DISMISSES THE INTERRUPT. ON A "NO MORE DAT*" 

I RETURN IT TRANSFERS CONTROL TO OVT2 FOR FURTHER 

i nECISION AS TO WHETHFR OR NOT To CONTINUE DISPLAYING, 



000016' 
000077' 
000246' 
000144 ' 
000000 



DISFINi 



10VT2 



?00000 nvT2i 

000000' 

004000 

001000 

000000 

000060' 

000200 

000002' 

001000 

000174' 

000053' 

000163' 

000100 

000177' 

000166' 

000100 OVT4! 

000214' 

000156' OVTb! 

000002' 0VT3S 

010000 

000001 

000000 

000002' 

000000 

000002' 0VT6! 

000177' 

000173' 



MOVEM 

JSR 

JRST 

JRST 

JEN 

RECEI 
(SUPP 
THIS 
AND S 
THE J 
IF TH 
IT CH 
TF SO 
COMMA 
TURNF 
OUTPU 
THE J 



TAC.OISAV 

PISNXT 

ADRER 

OVT2 

9DISCHL 



ISAVE AC'S 

(SETUP NEXT BLKO POINTER 

(RETURN HERE IF NO NEXT POINTER 
(LET THE SCOPE DO THE REST 

VES CONTROL AT INTERRUPT LEVEL WHEN THE COMMAND LIST 

LIED BY THE USER) RUNS OUT, IT SAVES THE AC'S FOR 

CHANNEL AND IN THE PROCESS ENABLES RETURNS RY POPJ 

IMILAR GOOD THINGS SINCE IT ALSO STORES THE PC FROM 

SR IN THE GENERAL PC LOCATION FOR THIS CHANNEL 

E DISPLAY IS OFF, IT DOES NOT RESTART IT, 

ECKS TO SEF. IF THE CLOCK HAS RUN OUT BEFORE THE PICTURE! 

, IT CALLS DISBEG TO RESTART The DISPLAY WITH A NFW 

ND LIST, IT TURNS OFF THE 10 ACTIVE BIT WHICH WAS 

Q\' BY THE OUTPUT ROUTINE) THIS INSURES THAT AMY 

T COMMAND WILL HISPLAY AT LEAST ONE PICTURE, IF 

OB WAS IN AN IO-WAIT, IT IS RELEASED. 



JSR DISSAV 

mOVEI OEVDAT.DISODB 

*OVS! TACSHF 

MOVSI QAT.nSHF 

LDR ITEM.PJOBN 

PUSHJ PDP.DISOFF 

MOVSI IOS.DISWAT 

10RB lOS.DISIOS 

TLON IOS.nlSUUI 

JRST 0VT6 

TDNE TAC, JBTSTS(ITEM) 

JRST 0VT4 

TLNE IOS.DISTAR 

PUSHJ PDP.niSBEG 

JRST 0VT3 

TLNE IOS.DISTAR 

PUSHJ PDP.CLKREQ 

4NDCAM DAT, J8TSTS( ITEM) 

MOVE lOS.DISIOS 

TRZ IOS.IOACT 

TL2E IOS.IOW 

PUSHJ PDP.SETIOD 

MOVEM I OS, n ISI OS 

JRST DISRET 

MOVEM IOS.DISIOS 

PUSHJ POP.DISBFG 

JRST DISRET 



IASK EXEC TO SAVE AC'S 
ISETUP ACS 



I1NDICATE PICTURES FINISHED 
I , , . 

(RESUME DISPLAY, NEW UUO, 
IYES, STAY IN 10 WAIT 

IPOES SYSTEM WANT TCI SHUFFLE THIS JOB? 
IYES 

IHAS CLOCK TRIGGERED? 
IYES, RESTART DISPLAY 

I DID CLOCK FINISH BEFORE PICTURE? 
IYES, PUT IN CLOCK REQUEST. 

ITURN OFF NSHF SO JOB CAN BE SHUFFLED 
IBIT FIDDLING TIME 
(SIGNAL DISPLAY CAN BE CLOSED 
IIS DISPLAY CAUSING AN IO-WAIT? 
(UNWAIT THE JOB 
(RESTORE 10 CONTROL WORD 
IRESTORE AC'S AND DISMISS 

(START NEW COMMAND LIST 
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322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 

341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
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000177 
000200 
000201 
000202 

000203 
000204 
000205 
000206 
000207 
000210 
000211 
000212 
000213 

000214 
000215 
000216 
000217 
000220 
000221 
000222 
000223 



205000 
412000 
5501P0 
552l,"0 

26401*0 
2540^0 
254000 
260140 
713620 
201040 
542040 
700600 
263140 

205030 
200040 
700600 
676000 
136040 
436030 
700600 
263140 



000300 
000032 ' 
000015' 
000012' 

000077' 

000247' 

000051 ' 

000214' 

000021' 

010000 

000066' 

000000 

000000 

000400 

000224' 

000000 

000002' 

000000 

000002' 

000000 

000000 



OISBEG IS CALLED WITH A PUSHJ PDP, 
DISPLAY ITSELF (PY USING 01 
CLOK RESTART AND RESFTS THE 
COMMAND LIST TO THAT SPECIF 
MINUS ONE. IT ASKS niSNXT 
IF DISNXT IS UNSUCCESSFUL < 
IS NULL), THEN THE ROUTINE 
REQUEST IS ENTERED FOR A CL 
AT MOST TWO JIFFIES, THIS 
ONLY IF THERE IS NONE ALREA 
CHANNELS FOR THE DISPLAY AR 
OISPLAY IS INITIALIZED BY A 
DATA AS SOON AS THE c I CHAM 
IT TURNS THIS CHANNEL ON AN 



DISBEG, IT DISABLE 
SOFF) AND ALSO OISA 

POINTER TO THE USE 
IFD ON THE LAST OUT 
TO SET UP THE NEXT 
I.E., IF THE USER C 
DOES A CLOSE. OTHE 
OCK INTERRUPT AT TH 
CLOCK QUEQUE REQUES 
OY IN THE QUEUE. T 
E TURNED ON AGAIN A 

CONO, IT SHOULD T 
NEL FOR THE BLKO IS 
D RETURNS TO ITS CA 



S THE 
BLES THE 

R'S 
PUT 

BLKO POINTER 
OMMAND LIST' 
RWISE. A 
E END OF 
T IS ENTERED 
HE PI 
NO THE 
HEN REQUEST 
TURNED ON. 
LLFR. 



DISBEG: MOVSI 
ANDCAM 
HRRZ 
URR2M 

JSR 

JRST 

JRST 

PUSHJ 

CONO 

MOVEI 

hrrm 

CONO 
POPJ 



(INDICATE FRESH DISPLAY 



IOS,DISTAR*DISWAT 

IOS.DISIOS I.,, 

TAC1.DIS0NE IGET POINTER LIST ADDR (-1) 

TAC1,DISPNT IRESET POINTER POINTER WITH IT 



CLKREQi 



MOVSI 

MOVE 

CONO 

TDON 

IDPB 

IORM 

CONO 

POPJ 



000224 000225' 000002 CLOKRTl XWD 



DISNXT 

ADRER1 

DISSTP 

PDP.CLKREQ 

DIS.9DISC0N 

TAC.PENON 

TACPENINT 

PI .DISPON 

PDP. 

IOS,OISCKR 
TAC.CLOKRT 
PI .PIOFF 
IOS.DISIOS 
TAC, CLOCK 
IOS.DISIOS 
PIiPION 
PDP, 

CLOK, 2 



IASK FOR FIRST WORD FOR RLKO 

INULL LIST, CLOSE 

(ENTER CLOCK QUEUE REQUEST 

I INITIALIZE THE OISPLAY 

(ALLOW SPECIAL PI INTERRUPTS 

I . . . 

(ALLOW BLKO INTERRUPTS 

(RETURN 

•IF NO CLOCK INTERRUPT REQUESTED 

IRESET TIMER 

IINHIBIT INTERRUPTS 

IENTER ONLY A SINGLE CLOCK RFQUEST 

(PLACE REQUEST IN QUEUE 

(PROTECT AGAINST A DUPLICATE REQUEST 

1UNIHIBIT INTERRUPTS 

(RETURN 



(CONTROL FOR CLOCK QUEUE: 
(TWO JIFFIES 



2 JIFFIES 



OIST10 



.562 
363 
361 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
390 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
393 
399 
400 
401 
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("00225 
000226 
000227 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 
000243 
000244 
000245 



000246 
000247 
000250 
000251 



2050*0 
4 130(10 
6630'2-0 
2050/10 
4370^0 
6070:>0 
263140 
2013/ia 
?05040 
1352, , 
61?fc44 
2540"0 
436044 
200044 
556040 
542040 
2S401--0 



264000 

260140 
201300 
254000 



000252 211040 

000253 250040 

000254 254070 



000400 
000002' 
001000 
003100 

000002' 

000200 

000000 

000000' 

001000 

300150' 

003165' 

000177' 

000237 ' 

002000 

000014' 
000020' 
000177' 



CLOK 



CLOK! 



! AORER 



IS CALLED AT THE CLOCK LEVEL IN RESPONSE TO A REQUEST 
IN THE CLOCK QUEUE, A BIT IS SET TO INDICATE THAT THE 
CLOCL PERIOD HAS ELAPSED. IE THE DISPLAY IS STILL IN 
PROGRESS, CLOK RETURMS AT THIS POINT. OTHERWISE, CLOK 
GOES TO DISHFG TO START UP THE DISPLAY. DIS9EG RETURNS 
WITH A POPJ POP, 



MOVSI IOS.DISCKR 

ANDCAB IQS.OISIOS 

TLOE IOS.DISUUI 

10VSI IOS.DISTAR 

IORB IOS.OISIOS 

TLNN IOS.OISWAT 

POPJ POP, 

"OVEI rEVDAT,DISDD B 

MOVSI TACNSHF 

LDP ITEM.PJOBN 

TONE TAC, JBTSTSC ITEM) 

JK5T DISBEG 

IORM TAC, JBTSTS( ITEM) 

MOVE TAC, JBTADR(ITEM) 

uiRl» TACDISHI 

HRR* TACDISREL 

JRST n;SBEG 



000144' ADRER! 
000025' ADRER1I 
003000' 
000000 

IOISIN 

( 



000001 

000011' 

000000 



DISIN: 



(INDICATE CLOCK REQUEST SERVICED 
I . . . 

IASK 
I , . . 

IHAS 
INO, 



DISPLAY TD RESTART 

DISPLAY FINISHED? 
WAIT FOR IT TO DO SO 



IYES, 



I IS SHUFFLE LOCKED OUT? 
RESTART DISPLAY AND RETURN 
INO, LOCK IT OUT. 
IRESET DISHI AND DISREL AFTER SHUFFLING 



IRESART DISPLAY AND RETURN 



SERVICES PROTECTION VIOLATIONS DISCOVERED BY OISNXT, 

IT DOES A CLOSE AND THEN CALLS THE MONITOR'S ERROR PRINTING 

ROUTINES TO INFORM T"E USER. 

JSR PISSAV ISAVE AC'S AGAIN 

PUSHJ PDP,DISDSP*DCL IDO A CLOSE 

MOVEI DEVDAT.DISDDR ITELL ERROR ROUTINE WHO'S UNHAPPY 

JRST AORERR IGO GRIPE 

HANDLES LITE PEN UUO (INPUT) IN A RUDIMENTARY FASHION 

BY RETURNING (TO THE ADDR SPECIFIED BY THE ADDR FIELD 

OF THE INPUT UUO) THF LAST PEN COORDINATES SEEN, 



MOVNI 

FXCH 

JRST 



TAC1 

TACPENLOC 

STOTAC 



(GET LATEST COORDINATES, 
(STORE AND RETURN 
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4512 
403 
4(14 
405 
4!*6 
4«7 
408 
439 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 

421 
422 
423 
424 
475 
426 
427 
428 
429 
430 
431 
432 
433 
434 



000255 
000256 
000257 
000260 
000261 
000262 

000263 
000264 
000265 
000266 
000267 
000270 
000271 
000272 
000273 
000274 

000275 
000276 



661000 
660000 
275600 
200040 
202040 
200040 

202040 
201040 
542040 
437070 
552620 
205000 
436000 
713720 
4120K0 
2540".0 

713500 
264000 



DISOUT DOES THE WORK OF THE OUTPUT UUO 
INDICATE THAT THE DEVICE IS ACT 
INTERUPTS WHICH MAY STILL BE IN 
MONITOR CALLS WSYNCE BEFORE COM 
GUARANTEED AT LEAST ONE PICTURE 
BOUNDS ARE STORED FOB OUtCK USE 
SAVING AC'S. THE LOCATION Of T 
STORED FOR USE IN SETTING UP BL 
LOCATIONS (40 ♦ 2J) ARE INITIAL 
THE EVEN LOCATION AND A JSR TO 
THE NON-DATA CHANNEL CONSO IS S 
A PQPJ PDPi IT RETURNS ON BEHAL 



DISOUT! 



, IT SETS A BIT TO 
IVE AND INHIBITS 

PROGRESS. SINCE THE 
ING HERE, THE USER IS 
/OUTPUT, THE USERS MEMORY 

AT INTERRUPT LEVEL W/0 
HE COMMAND LIST (-1) IS 
KO POINTERS. THE PI 
IZED WITH A BLKO IN 
DISEIN IN THE ODD LOCATION, 
ETUP TO BELIEVE IN THE 
F OF THE OUTPUT UUO. 



000220 
010000 
000001 
000275' 

000000 

000276* 
000000 

010000 

000066 ' 

000002' 

000015' 

001000 

000002' 

000021' 

000002' 

000214' 



000013' BLKLITi BLKO 
000143' JSRLIT1 JSR 
END 



TLO 


IOS,IO*DISWAT 


TRO 


IOS.IOACT 


SUBI 


UUO. I 


MOVE 


TACBLKLIT 


MOVEM 


TACDISBLK 


MOVE 


TAC, JSRLIT 


MOVE" 


TAC.DISJSR 


MQVEI 


TAC.PENON 


URRK 


TACPENINT 


IORB 


lOS.nlSIOS 


HRR?M 


UUO.DISONE 


MOVSI 


IOSiDISUUI 


IORm 


I OS.DISIOS 


CONS? 


OIS.9DISCON 


ANOCAM 


IOS.DISIOS 


JRST 


CLKREQ 



(INDICATE OUTPUTI REQUEST START UP 

( INDICATE! DEVICE ACTIVE 

(ALLOW FOR INCREMENT AT INTERRUPT 

IFEEDS WORDS TO THE DISPLAY 

•FROM EVEN NUMBERED INTERRUPT LOC 

(SERVICE THE END OF BLKO 

IFROM ODD INTERRUPT LOC 

(SETUP CONSO BITS ON SPECIAL CHANNEL 

I , . . 

ISET 10ACT ON) INOICATE OUTPUT 

ISET NEW COMMAND LIST ORIGIN 

IALLOW DISPLAY 

(DISPLAY ALREADY IN USE 

(ENTER CLOCK QUEUE REQUEST AND POPJ 



nIS.DISBKO 
nISCHL 



NO ERRORS DETECTED 
PROGRAM BREAK IS 000277 



■HST3B 
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ADRER 


000246' 




9LKLIT 


000275' 




CLOK 


700225' 




OAT 


000005 


INT 


D1S 


0051134 




OISBEG 


000177' 




DISBSY 


020000 




OISCKR 


300400 




OISDSP 


000024' 


INT 


I S I M 


000252' 




DISIMT 


000064' 


INT 


niSNXi 


0001^0' 




OISONE 


000015' 




T1SPOF 


000062' 


EXT 


OISRET 


000176' 


EXT 


OIST30 


000010* 


INT 


OISWAT 


ni)("2."0 




nVLNC 


001000 


INT 


EXIT2 


000130* 




HUNGST 


020001 


INT 


1NTPNT 


000136' 




IOS 


n k Tpi0'"0 


INT 


JBTAOR 


000242' 


EXT 


JOBPFl 


0«:01?1' 


FXT 


NSWP 


("lBK-'B 


INT 


0VT3 


000166' 




0VT6 


0001 74' 




PENCHN 


0*10043' 


EXT 


PENLOC 


000011' 




PIOFF 


000216' 


EXT 


PROG 


000007 


INT 


STOTAC 


000254' 


EXT 


TAC1 


000002 


INT 


UUO 


00001.4 


INT 



ADRE^l 


000247* 




'"LKREQ 


103214' 




(•"LOKRT 


.100224' 




ocl 


!"000vi 


TNT 


niSAV 


00001 6 ' 




nise«o 


000013' 




nisc"L 


000276' 


FXT 


"ISCON 


000021' 




nISFIN 


000177' 


INT 


TISIM 


000054' 




risns 


000002' 




"ISNXT 


'00077' 




"ISOUT 


000255' 




nspoN 


W00212' 


EXT 


IMSS4V 


000246' 


EXT 


n I S T '- R 


000100 




""(/DIS 


002000 


INT 


OVOuT 


P0IW.1 


INT 


FTCmEC 


00000 


INT 


ILUP 


0001*1' 




10 


000020 


INT 


ION 


000011 


INT 


J6TSTS 


000241* 


'"XT 


JbRLlT 


000276' 




OFFCIS 


000000 


INT 


"VT4 


000163' 




POP 


000013 


INT 


n EMD n B 


000000 


INT 


PtNO^ 


010000 




pIHn 


000222' 


EXT 


SETIOQ 


000171" 


FXT 


T30 


000001 




"ERRTR 


000027' 


EXT 


VDISRR 


0000174 


INT 



ADRERR 


000251' 


FXT 


CLOCK 


000220' 


FXT 


CP0PJ1 


000037' 


FXT 


OEVOAT 


000006 


INT 


0ISAV1 


000017' 




OISBLK 


000261' 


FXT 


OlSCHN 


000045' 


FXT 


□ISD08 


000000' 


INT 


DISH! 


000014' 




OISINI 


000043' 




01SJSR 


000263' 


EXT 


DISOFF 


000060' 




OISPNT 


000012' 




OISREL 


000020' 




OISSTP 


000051' 




DISUUI 


001000 




OVIN 


000002 


INT 


EXITl 


000127' 




FTMONP 


000000 


INT 


INTCHK 


000133' 




IOACT 


010000 


INT 


ITEM 


000004 


INT 


JOB 


000051' 


rXT 


NSHF 


001000 


INT 


0VT2 


000144' 




0VT5 


000165' 




PENCHI. 


000076' 


rXT 


PENINT 


200066' 


i NT 


PENSAV 


000000 


EXT 


PJOBN 


000236' 


FXT 


SHF 


004000 


INT 


TAC 


000001 


INT 


USRREl. 


000000 


rXT 



A 


bit 


6 






AC1 


bit 


6 






AC2 


6# 


6 






AC3 


6# 








ADRER 


278 


391# 






ADRER1 


342 


392# 






AORERR 


111 


394 






AEFERR 


bit 


6 






AL 


bit 


6 






ASSCON 


bit 


6 






ASSPRG 


btt 


6 






B 


tn 


6 






SLKLIT 


418 


432# 






BUFPWT 


btt 


6 






BUFWPD 


btt 


6 






CLKR 


bit 


6 






CLKREQ 


311 


344 


351* 


43H 


CLOCK 


112 


355 






CLOK 


36U 


369# 






CLOKRT 


352 


360# 






CLSIN 


60 


6 






CLSOUT 


btt 


6 






CMWB 


bit 


6 






CORCMT 


6# 


6 






CPOPJ1 


113 


131 


132 


138 


D 


6# 


6 






DAT 


btt 


6 


129 


13fc 


DCL 


bit 


6 


392 




DCLI 


bit 


6 






DCLO 


btt 


6 






DCLR 


6* 


6 






DOI 


bit 


6 






DOO 


bit 


6 






DEN 


bit 


6 






OEVARR 


bit 


6 






DEVBUF 


bit 


6 






□EVCHR 


bit 


6 






DEVCTR 


bit 


6 






DEVDAT 


bit 


b 


296 


376 


OEVEXT 


bit 


6 






□EVFIL 


bit 


6 






DEVIAD 


b* 


6 






DEVIOS 


bit 


6 






DEVLtlG 


btt 


6 






OEVMOO 


bit 


6 






DEVNAM 


bit 


6 






DEVOAD 


bit 


6 






DEVPPN 


bit 


6 






DEVPTR 


bit 


6 






DEVSER 


bit 


6 






DGF 


bit 


6 






OHNG 


bit 


6 






DIN 


bU 


6 







298 



312 



393 



niM 


60 


6 






DIS 


880 


17 4 


2^3 


205 


DISAV 


740 


2 6 


276 




D1SAV1 


75» 


2 313 


251 




DISBEG 


3P>a 


320 


337* 


380 


OISBKO 


710 


2 .-17 


23 7 


25/ 


niSBLK 


1»I5 


41.9 






DISBSY 


1P00 








DISCHL 


107 


2R0 


433 




DISCHN 


106 


160 






DISCKR 


92* 


3-51 


369 




DISCtlN 


Bl# 


162 


261 


26B 


niSDne 


59 


600 


296 


376 


DISOSF 


63 


11/ 


1270 


392 


DISFIN 


116 


179 


2760 




DISHI 


720 


234 


249 


254 


QISIN 


134 


399# 






D I S I N 1 


163 


1700 






DIS INI 


125 


1540 






DIS I NT 


116 


1790 


180 




nisios 


620 


173 


3P12 


313 


DISJSR 


105 


421 






DISNX1 


230* 


2 67 






QISNXT 


228# 


25B 


259 


262 


disoff 


1740 


3 '.'a 






D I SOME 


73# 


339 


425 




DISOUT 


133 


4150 






nisPfT 


70* 


230 


231 


340 


nispoF 


1C"9 


176 






DISPDN 


icy 


34 8 






OISRFL 


7a* 


278 


236 


256 


HISRFT 


108 


318 


321 




OISSAV 


105 


108 


295 


391 


OISSTP 


127 


128 


1650 


34.5 


OIST30 


15 


16* 






DISTlR 


90* 


3i*7 


310 


33 7 


DISUUI 


93* 


171 


31*3 


371 


OlSWAT 


910 


171 


301 


33/ 


DLK 


6* 


6 






HMT 


6* 


6 






ONAERR 


60 


6 






DOU 


60 


6 






HR 


60 


6 






ORL 


60 


6 






DRN 


60 


6 






HSER 


60 


6 






nsi 


60 


6 






DSKRLB 


60 


6 






osn 


60 


6 






DVAVAL 


60 


6 






nVCDR 


60 


6 






DVDIR 


60 


6 






DVDIRI 


6* 


6 







3 45 



428 



432 



3«5 
432 



345 
3«3 



383 



317 



319 
277 341 



384 



378 



354 



356 



370 



373 



424 



427 



429 



372 
426 
374 



415 



DVD IS 


btt 


6 


DVDSK 


6# 


6 


OVDTA 


6* 


6 


DVIN 


6* 


6 


ovinr. 


btt 


6 


DVLPT 


btt 


6 


DVMTA 


6* 


6 


DVOUT 


bit 


6 


DVPTP 


b# 


6 


DVPTR 


bit 


6 


DVTTY 


btt 


6 


ENTRR 


bit 


6 


EXIT1 


24U 


259* 


EXIT2 


235 


250 


FBMEFR 


bit 


6 


FNFERR 


btt 


6 


FRGSEG 


btt 


6 


FT2RFL 


btt 




FTATTA 


btt 




FTCHEC 


bit 


51 


FTEXAM 


btt 




FTFINI 


bit 




FTGETT 


btt 




FTHALT 


btt 




FTKCT 


6* 




FTMONP 


bit 


51 


FTPRV 


bit 




FTRA10 


bit 




FTRCHK 


bit 




FTREAS 


btt 




FTSLEE 


btt 




FTTALK 


bit 




FTT1ME 


bit 




FTTRAC 


btt 




FTTRPS 


btt 




FTTTYS 


btt 




HSAMSK 


bit 


6 


WSAPOS 


bit 


6 


HSASIZ 


bit 


6 


HUNGCT 


btt 


6 


HUNGST 


btt 


6 


I 


bit 


6 


ie 


btt 


6 


ISUFR 


btt 


6 


ICLOSB 


btt 


6 


ILM 


btt 




ILUERR 


bit 


6 


li-UP 


231* 


2"7 


INBF? 


6* 


6 


INI TP 


b» 


6 


INPB 


btt 


6 


INTCHK 


242 


26 5* 


INTPNT 


266 


266* 



64 



64 
64 



64 



255 



52 



52 



26<«# 



5 7 



5/ 



227 



227 



10 


btt 


6 


415 


I0ACT 


btt 


6 


172 


IOBEG 


bit 


6 




IOBKTL 


bit 


6 




IOBOT 


6* 


6 




IOCON 


btt 


6 




I0[1E';D 


btt 


6 




iooerr 


btt 


6 




IOOTER 


btt 


6 




IOEND 


bit 


6 




IOFST 


6tt 


6 




10IMPM 


6* 


6 




IONRCK 


b# 


6 




IOPAR 


btt 


6 




[OS 


6* 


6 


381 




351 


354 


356 




4?9 






IOTENQ 


btt 


6 




IOUSE 


btt 


6 




IOW 


6* 


6 


315 


iowc 


btt 


6 




[PPERR 


btt 


6 




ITEM 


btt 


6 


165 


JACCT 


btt 


6 




J6FADR 


btt 


6 




JBFCTR 


btt 


6 




JBFPTR 


btt 


6 




JBTAOR 


113 


3P2 




JBTSTS 


113 


ifia 


3P5 


JBUF 


btt 


6 




JDAT 


btt 


6 




JERR 


btt 


6 




JLOG 


btt 


6 




JNA 


btt 


6 




JOB 


113 


165 




JOBPFI 


104 


233 


248 


JRO 


6# 


6 




JSPL1T 


120 


433* 




JWPOS 


6# 


6 




JWSI2 


btt 


6 




JXPN 


btt 


6 




LISTSN 


b 






LOOKS 


btt 


6 




HEDOLE 


btt 


6 




NECERR 


btt 


6 




NLEERR 


btt 


6 




NSQERR 


bit 


6 




NSFERR 


bit 


6 




NSHF 


btt 


6 


166 


NSR3IT 


btt 


6 




NSWP 


btt 


6 


166 


NXM 


btt 






OBUFR 


btt 


6 





314 



302 
369 



l6d 



312 



253 



3;>3 

57L3 



209 



379 



377 

371 



3E5 



381 



310 
372 



312 



313 

373 



378 



314 
374 



379 



315 

415 



381 



317 
4.16 



382 



319 

424 



337 

4?6 



338 
427 



298 



377 



OCLOSB 6# 6 

OFFDIS 78* 78 174 

OUTBFB 6* 6 

OUTPS 6* 6 

0VT2 279 295* 

0VT3 309 313* 

0VT4 306 310* 

0VT5 312* 

3"." 3«T £1 III $ \H lM ™ ™ ^ 300 308 311 316 
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